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ie 19:59:25 DISKSUNSMASTER: LEAF -SRCJINTERVENE.FORTT® | 
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¢ Version: *v04-000' 

¢ 

CRASSA H AAS AAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAEAEAAAEAEAEEAEEETERAAAEE 


ce COPYRIGHT aff 1978, 1980, 1982, 1984 B 
c* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
c* ALL RIGHTS RESERVED. 


c* THIS SOFTWARE IS A gt UNDER A LICENSE AND MAY BE USED AND correo 
c* ONLY a eo CE wW A THE TERMS OF SUCH qiyt NSE_ AND hy : As} 


ct poe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ce SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
ce CORPORATION. 


c* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
c* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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C 
+ C 
c 
+ 94 ¢ Author Brian Porter Creation date 22-JUL-1983 
4 
0031 
BO8¢ c++ 
B38 c Functional description: 
34 C 
Spee C 
36 C Modified by: 
0037 Cc 
0038 C v03-002 SAN0168 Sharon A. Reynolds 11-Nov-1983 
0039 C Fixed a problem with negative numbers being output 
Bee : in the intervening record message. 
4983 C v03-001 SARO135 Sharon A. Reynolds 9-Sep-1983 
C Changed gore tege control so that this routine can 
4 C be used for ER 
5 Cc 
§ cte 
8 c-- 
BED Subroutine INTERVENE_INCREMENT (Lun) 
51 
2 implicit none 
32 byte lun 
2$ integer*4 intervening_records 
005 integert4 LibSextzv 


Entry INTERVENE_OUTPUT (Lun) 


9 
0 
tal 5 if Cintervening_records .GT. 0) then 
bors call Linchk (lun,3) 
0075 write(lun,10) ("#*',repeat_count = 1,72) 
Bore 10 format(' *,72a1) 
0078 write(lun, 13 9 Teervening records 
0079 15 format(/' ° i<c onpres ss& (in tervening records) 
pees + *TATERVENTNG REC RDCS) vice BE PRINTED AT INPUT FILE *‘<EOF>''*) 
pons intervening_records = 0 
008 endif 
0084 
0085 Return 
0086 
0087 
0088 
0089 Entry INTERVENE_DECREMENT (Lun) 
1 
35) intervening_records = intervening_records - 1 
0094 goto 5 
0095 
0096 end 


Pa 
F.SR RCJINTERVENE. FOR; 


N 14 
INTERVENE _INCREMENT 16-Sep-1984 00:04: VAX-11 FORTRAN V3.4 
a: =8ep- 1382 99:95:31 DISKSVMSMASTER:LER 
integer*4 compress4 
integersé repeat. count 
§ Intervening_records = intervening_records + 1 
Return 
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INTERVENE _ INCREMENT 


PROGRAM SECTIONS 
Name 
SCODE 
SPDATA 
2 SLOCAL 
Total Space ALL 


ENTRY POINTS 
Address Type 
8-0000000¢ 
VARIABLES 
Address Type 


2-00000000 I*4 
AP-000000048 L*1 


LABELS 
Address Label 
0-00000015 5 


Type Name 
I1*4 COMPRESS4 


COMMAND QUALIFIERS 


/CHECK=(NOBOUNDS 


/NOG_FLOATI 


/Stansanbe noe nt 


Bytes 
15 
89 
40 
ocated 279 
Name 
INTERVENE _DECREMENT 
INTERVENE _OUTPUT 
Name 
INTERVENING_RECORDS 
LUN 
Address Label 
1-00000005 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name 
LINCHK 


OVERFLOW NOUNDERF LOW) 
TRACEBACK) 
form 


NG 714 SOPTIATZE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE 


FORTRAN /LIS=LIS$: INTERVENE/OBJ=0BJ$: INTERVENE MSRC$: INTERVENE 


-Sep-1984 4: VAX-11 FORTRAN V3.4-56 
ig-ye 3op7 1882 §9i85:35 | PN SUmSRAS TEN: TERE cocoINTERVENE 
Attributes 
PIC CON REL LCL SHR EXE RD NOWRT LONG 
PIC CON REL LCL ne NOEXE RD NOWRT LONG 
PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Address Type Name 
0-00000000 INTERVENE_INCREMENT 
Address Type Name 
3-00000004 1*4 LIBSEXTZV x. 
-00000008 I*4 REPEAT_COUNT . 
Address Label 
1-0000000D 15° 


/NOMACHINE CODE /CONTINUATIONS=19 


Fors t 
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INTERVENE _ INCREMENT 
COMPILATION STATISTICS 


un Time 
ilaened Time: 
Page Cou ts: 
Dynamic Memory: 


seconds 


1.9 seconds 
i 
169 pages 


ifeBeoctge 09:04:5) vane coRTRaN 


feat -kcaintervene.rone?® 
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